encadena([],L,L).
encadena([X|Resto1],L,[X|Resto3]):-encadena(Resto1, L, Resto3).

fibonacci(0,1).
fibonacci(1,1).
fibonacci(X,N):-Y is X-1, Z is X-2, fibonacci(Y,M), fibonacci(Z,L), N is M+L.